 |
 |
 |
|
 |
||
 |
|
|||||
 |
| Заказные курсы | |||
|
|
|
|
| Официальные курсы | |||
|
|
|
|
| Модули к курсам | |||
|
|
|
|
| Книги | |||
|
|
|
|
| Расписание | |||
|
|
|
|
| Контакты | |||
|
|||
 |
 |
 |
 |
| <-- К условию задачи | Читать дальше --> |
Решение:
Итоговый код может выглядеть так:
Public Sub FromExcelToWordAnswer()
Dim sA1, sA2, sA3, sText As String
sA1 = ThisWorkbook.Worksheets(1).Range("A1").Text
sA2 = ThisWorkbook.Worksheets(1).Range("A2").Text
sA3 = ThisWorkbook.Worksheets(1).Range("A3").Text
sText = sA1 + " " + sA2 + " " + sA3
Set oWord = CreateObject("Word.Application")
oWord.Visible = True
Set oDoc = oWord.Documents.Add()
oDoc.Activate
oWord.Selection.TypeText sText
End Sub
 |
|||
| Информация об этом курсе | |||
|
|
|
|
| План этого курса |
|||
|
|
|
|
| Получить этот учебник в формате PDF или DOC | |||
| Книга по этому курсу |
|||
|
|
|
|
|
|
|
|
| Как заказать или записаться на курс | |||
|
|
|
|
| Другие авторские курсы | |||
|
|
|
|
| Официальные курсы Microsoft | |||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| <-- К условию задачи | Читать дальше --> |
Получить этот учебник в формате PDF (Acrobat Reader) или DOC (Microsoft Word)
|
© 2004-2005, Академия Специальных Курсов по Информационным Технологиям. Все права защищены. Разработка NevaStudio |
|
|
г. Санкт-Петербург, Васильевский остров, 20-я линия, д. 7 Офис 101, 2-й этаж Телефон: 8(812)922-47-60 E-mail: info@askit.ru |
 |
|
 |